00010		MOVEI	X,3		;Set to index thru 4 fields
00020	CTA:	LDB	K,OUTA(X)	;Save old value
00030		DPB	Z,OUTA(X)	;Deposit new value
00040		LDB	L,LEVA		;Read counter gating level
00050		CAMG	Z,L		;Is current value abouve level
00060		JRST	CTA3		;No it is not
00070		CAMLE	K,L		;What about older value
00080		JRST	CTA2		;It was also above level
00090		MOVE	K,SEGC		;Start of + state
00100		DPB	K,STARTA
00110		DPB	Z,MAXA(X)	;Start new max measure
00120		MOVEI	K,0
00130		DPB	K,ENDA(X)	;Zero to indicate in + state
00140		AOS	SFLAG
00150		JRST	CTB
00160	
00170	CTA2:	LDB	K,MAXA(X)	;Continuation of + state
00180		CAMLE	Z,K
00190		DPB	Z,MAXA(X)
00200		JRST	CTB
00210	
00220	CTA3:	CAMG	K,L		;Test older value
00230		JRST	CTB		;Still in - state
00240		MOVE	Z,SEGC		;End of + state
00250		DPB	Z,ENDA(X)
00260		AOS	EFLAG
00270	
00280	CTB:	SOJGE	X,CTA0